      MODULE CARBUNCLE

!     ******************************************************************
!     *                                                                *
!     *   DIMENSION CONTROL PARAMETERS                                 *
!     *                                                                *
!     ******************************************************************
      INTEGER, PARAMETER :: IDM=385, JDM=65
      INTEGER, PARAMETER :: IDN=IDM+1, JDN=JDM+1
      INTEGER, PARAMETER :: IDP=IDM+2, JDP=JDM+2
      INTEGER, PARAMETER :: IDQ=(IDM-1)/2+2, JDQ=(JDM-1)/2+2
      INTEGER, PARAMETER :: IMX=385

!     ******************************************************************
!     *                                                                *
!     *   MULTIGRID STORAGE CONTROL PARAMETER                          *
!     *                                                                *
!     ******************************************************************
!     192*32 MESH :     IDX = 2500
!     384*64 MESH :     IDX = 9096

      INTEGER, PARAMETER :: IDX=9096, IDX2=2*IDX, IDX4=4*IDX

!     ******************************************************************
      DOUBLE PRECISION :: GAMMA,RM,RHO0,P0,EI0,H0,C0,U0,V0,CA,SA,ALPHA  ! FROM COMMON/DAT/
      INTEGER :: NX,NY,IL,JL,IE,JE,ITL,ITU                              ! FROM COMMON/LIM/
      DOUBLE PRECISION :: CFL,VT,HM,VIS0,VIS2,VIS4,ADIS,BC,&            ! FROM COMMON/PRM/
                          SMOOPI,SMOOPJ
      INTEGER :: KSMOOP,MSTAGE                                          ! -------DO-------
      DOUBLE PRECISION :: CP(IDM),SCAL,CHORD,XM,YM,CL,CD,CM             ! FROM COMMON/OUT/
      DOUBLE PRECISION :: RTRMS,RTMAX,HRMS,HMAX                         ! FROM COMMON/CNV/
      INTEGER :: IRT,JRT,IH,JH,NSUP                                     ! -------DO-------
      INTEGER :: MCYC,NCYC,NTIM,NOUT,NPRNT,IPRNT,LPRNT,NMESH,K1,KX,KW   ! FROM COMMON/CYC/
      INTEGER :: KODE,MODE                                              ! FROM COMMON/MGR/
      DOUBLE PRECISION :: FCOLL,FADD,FBC                                ! -------DO-------
      DOUBLE PRECISION :: CFLF,CFLC,HMF,HMC                             ! FROM COMMON/MGQ/
      INTEGER :: LCYC                                                   ! -------DO-------
      DOUBLE PRECISION :: TOT,RTRMS0                                    ! FROM COMMON/MON/
      INTEGER :: NRES,IMON                                              ! -------DO-------
      INTEGER :: ISTART                                                 ! FROM COMMON/STT/
      DOUBLE PRECISION :: FCYC(4),FPRNT(4),FOUT(4),FTIM(4),&            ! FROM COMMON/SEQ/
                          GPRNT(4),HPRNT(4),HMESH(4)
      INTEGER :: MMESH                                                  ! -------DO-------
      CHARACTER(100) :: TITLE(20)                                       ! FROM COMMON/TIT/
      DOUBLE PRECISION :: X(IDM,JDM,2),VOL(IDN,JDN)                     ! FROM COMMON/GRD/
      INTEGER :: ISYM                                                   ! FROM COMMON/SYM/
      DOUBLE PRECISION :: A0(IDM),S0(IDM),B0(JDM),XSING,YSING,TRAIL,&   ! FROM COMMON/CRD/
                          SLOPT,BOUNDX,BOUNDY,BX,XTE,XLIM,AX,AY,SY
      DOUBLE PRECISION :: XP(IMX),YP(IMX)                               ! FROM COMMON/GEO/
      INTEGER :: NP                                                     ! -------DO-------
      INTEGER :: IMESH,IIN                                              ! FROM COMMON/IMS/
      DOUBLE PRECISION :: W(IDN,JDN,4),P(IDN,JDN)                       ! FROM COMMON/FLO/
      DOUBLE PRECISION :: WW(IDX4),WW1(IDX4),WWR(IDX4),&                ! FROM COMMON/EXT/
                          XX(IDX2),VOLC(IDX)


      END MODULE CARBUNCLE


